Program p1;
type

	Arbre=^noeud;
	noeud=record
		n,na:Arbre
	end;

	all=^record
		t:noeud;
		u:record
			a:arbre;
			b:integer;
			c:record 
				a:arbre
			end
		end
	end;
	test=^all;
	TStudRec = Record
		Name,  Surname : String;
		ID,  Age : Integer;
		Gender : all
	End;


	TNodePtr = ^TNode;
	TNode = Record
		StudRec : TStudRec;
		NodePtr : TNodePtr
	End;

var
	d:arbre;
	r:record
		x:arbre;
		y:real
	end;

procedure abd;
type 
	abt=^m;
	m=record
		t:array [1..10] of abt
	end;
var
	s:m;

begin

end;


begin
end.
